home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok29.lha / CreateIcons / Lists.imp < prev    next >
Text File  |  1993-08-15  |  468b  |  28 lines
  1. IMPLEMENTATION Lists;
  2.  
  3.  
  4. PROCEDURE Add(VAR head: NodePtr; VAR el: Node);
  5.  
  6. BEGIN
  7.   el.next := head;
  8.   el.prev := NIL;
  9.   IF head#NIL THEN head.prev := ADR(el) END;
  10.   head := ADR(el);
  11. END Add;
  12.  
  13. PROCEDURE Rem(VAR head: NodePtr; VAR el: Node);
  14.  
  15. BEGIN
  16.   IF el.next#NIL THEN el.next.prev := el.prev END;
  17.   IF el.prev#NIL THEN el.prev.next := el.next ELSE head := el.next END;
  18. END Rem;
  19.  
  20. PROCEDURE Empty(head: NodePtr): BOOLEAN;
  21.  
  22. BEGIN
  23.   RETURN head=NIL
  24. END Empty;
  25.  
  26. END Lists.
  27.  
  28.